home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / drop.sty < prev    next >
Text File  |  1995-11-25  |  1KB  |  21 lines
  1. %%%%%%%%%%%%%%%%%%%%% BOX ONE %%%%%%%%%%%%%%%%%%%%%%%%%
  2. %\typein[\dropinitialfont]{Font for Dropped initial:} %
  3. % \font\largefont \dropinitialfont                    %
  4. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  5. %
  6. %%%%%%%%%%%%%%%%%%%%% BOX TWO %%%%%%%%%%%%%%%%%%%%%%%%%
  7. \font\largefont= cmr10 scaled \magstep5              %
  8. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  9. \typein[\dropinitialfont]{Font for Dropped initial:}  %
  10. \font\largefont \dropinitialfont                      %
  11. \def\drop#1#2{{\noindent
  12.     \setbox0\hbox{\largefont #1}\setbox1\hbox{#2}\setbox2\hbox{(}%
  13.     \count0=\ht0\advance\count0 by\dp0\count1\baselineskip
  14.     \advance\count0 by-\ht1\advance\count0by\ht2
  15.     \dimen1=.5ex\advance\count0by\dimen1\divide\count0 by\count1
  16.     \advance\count0 by1\dimen0\wd0
  17.     \advance\dimen0 by.25em\dimen1=\ht0\advance\dimen1 by-\ht1
  18.     \global\hangindent\dimen0\global\hangafter-\count0
  19.     \hskip-\dimen0\setbox0\hbox to\dimen0{\raise-\dimen1\box0\hss}%
  20.     \dp0=0in\ht0=0in\box0}#2}
  21.